home *** CD-ROM | disk | FTP | other *** search
/ Amiga Format CD 43 / Amiga Format CD43 (1999)(Future Publishing)(GB)(Track 1 of 2)[!][issue 1999-09].iso / -serious- / programming / e / speedtests / ifthen.e < prev    next >
Text File  |  1999-06-14  |  260b  |  22 lines
  1. MODULE '*testspeed'
  2.  
  3. CONST LOTS_OF_TIMES=1000000
  4.  
  5. DEF x=5
  6.  
  7. PROC main()
  8.   test({ifendif}, 'IF ENDIF', LOTS_OF_TIMES)
  9.   test({ifthen},  'IF THEN',  LOTS_OF_TIMES)
  10. ENDPROC
  11.  
  12. PROC ifendif()
  13.   IF x=0
  14.     NOP
  15.   ENDIF
  16. ENDPROC
  17.  
  18. PROC ifthen()
  19.   IF x=0 THEN NOP
  20. ENDPROC
  21.  
  22.